home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / b / b.lha / B / ex / pi / 'PI < prev    next >
Encoding:
Text File  |  1988-11-24  |  406 b   |  16 lines

  1. HOW'TO PI n':
  2.     \Print the first n places of pi. a, b, c and d get very large.
  3.     WRITE '3.'
  4.     PUT n' IN n
  5.     PUT 3, 0, 40, 4, 24, 0, 1 IN k, a, b, c, d, e, f
  6.     WHILE n>0:
  7.         WHILE e=f AND n>0:
  8.             WRITE e<<1
  9.             PUT n-1 IN n
  10.             PUT 10*(a-e*c), 10*(b-f*d) IN a, b
  11.             PUT floor(a/c), floor(b/d) IN e, f
  12.         PUT k**2, 2*k+1, k+1 IN p, q, k
  13.         PUT b, p*a+q*b, d, p*c+q*d IN a, b, c, d
  14.         PUT f, floor(b/d) IN e, f
  15.     WRITE /
  16.